unit Schema;

interface
uses
  adodb, db, StdCtrls, SysUtils, dialogs;

type
  Tschema = class(TObject)
  private
    Fconnection: TADOConnection;
    Ftables: TADOTable;
    Findexes: TADOTable;
    Fcolumns: TADOTable;
    Ffrkeys: TADOTable;
    FUserTypes: TADOTable;
    FSysTypes: TADOTable;
    FDefaults: TADOTable;
    FViews: TADOTable;
    FProcedures: TADOTable;
    FTrigers: TADOTable;
    procedure SetConnection(value: TADOConnection);
    procedure Settables(value: TADOTable);
    procedure Setindexes(value: TADOTable);
    procedure Setcolumns(value: TADOTable);
    procedure SetFrkeys(value: TADOTable);
    procedure SetUserTypes(value: TADOTable);
    procedure SetSysTypes(value: TADOTable);
    procedure SetDefaults(value: TADOTable);
    procedure SetViews(value: TADOTable);
    procedure SetProcedures(value: TADOTable);
    procedure SetTrigers(value: TADOTable);
  published
    property Connection: TADOConnection read Fconnection write SetConnection;
    property tables: TADOTable read Ftables write SetTables;
    property indexes: TADOTable read Findexes write SetIndexes;
    property columns: TADOTable read Fcolumns write SetColumns;
    property frkeys: TADOTable read Ffrkeys write SetFrkeys;
    property UserTypes: TADOTable read FUserTypes write SetUserTypes;
    property SysTypes: TADOTable read FSysTypes write SetSysTypes;
    property Defaults: TADOTable read FDefaults write SetDefaults;
    property Views: TADOTable read FViews write SetViews;
    property Procedures: TADOTable read FProcedures write SetProcedures;
    property Trigers: TADOTable read FTrigers write SetTrigers;
  public
    constructor create();
    destructor Destroy; override;

  end;


var
  schema1: TSchema;
implementation

constructor Tschema.create();
begin
  inherited create;
end;

destructor Tschema.Destroy();
begin
//update?
  inherited Destroy;
end;

procedure TSchema.SetConnection(value: TADOConnection);
begin
  FConnection := value;
end;

procedure Tschema.Settables(value: TADOTable);
begin
  ftables := value;
end;

procedure Tschema.Setindexes(value: TADOTable);
begin
  findexes := value;
end;

procedure Tschema.Setcolumns(value: TADOTable);
begin
  fcolumns := value;
end;

procedure Tschema.SetFrkeys(value: TADOTable);
begin
  Ffrkeys := value;
end;

procedure Tschema.SetUserTypes(value: TADOTable);
begin
  FUserTypes := value;
end;

procedure Tschema.SetSysTypes(value: TADOTable);
begin
  FSysTypes := value;
end;

procedure Tschema.SetDefaults(value: TADOTable);
begin
  FDefaults := value;
end;

procedure Tschema.SetViews(value: TADOTable);
begin
  FViews := value;
end;

procedure Tschema.SetProcedures(value: TADOTable);
begin
  FProcedures := value;
end;

procedure Tschema.SetTrigers(value: TADOTable);
begin
  FTrigers := value;
end;


end.

